home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
graphi1a
/
sinewave.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1999-03-30
|
13KB
|
396 lines
VERSION 5.00
Begin VB.Form frmSineWave
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 5265
ClientLeft = 105
ClientTop = 675
ClientWidth = 8865
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 351
ScaleMode = 3 'Pixel
ScaleWidth = 591
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox txXUnit
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 7875
MaxLength = 4
TabIndex = 15
Text = "35"
Top = 4875
Width = 900
End
Begin VB.TextBox txXMult
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 5700
MaxLength = 4
TabIndex = 7
Text = "1"
Top = 4500
Width = 900
End
Begin VB.CommandButton cmdGo
Caption = "&Go"
Default = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 7875
TabIndex = 6
Top = 4500
Width = 915
End
Begin VB.PictureBox pctGraph
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
ClipControls = 0 'False
Height = 3990
Left = 75
ScaleHeight = 262
ScaleMode = 3 'Pixel
ScaleWidth = 577
TabIndex = 0
Top = 75
Width = 8715
End
Begin VB.TextBox txWide
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3525
MaxLength = 4
TabIndex = 4
Text = "1"
Top = 4500
Width = 900
End
Begin VB.ComboBox cbWaveName
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "SineWave.frx":0000
Left = 5700
List = "SineWave.frx":0016
TabIndex = 3
Text = "SIN"
Top = 4875
Width = 900
End
Begin VB.TextBox txHigh
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3525
MaxLength = 4
TabIndex = 2
Text = "1"
Top = 4875
Width = 900
End
Begin VB.TextBox txYPos
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1350
MaxLength = 4
TabIndex = 1
Text = "0"
Top = 4875
Width = 900
End
Begin VB.TextBox txXPos
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1350
MaxLength = 4
TabIndex = 5
Text = "0"
Top = 4500
Width = 900
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "X Unit (pixels):"
Height = 195
Left = 6825
TabIndex = 16
Top = 4875
Width = 1005
End
Begin VB.Label lblScale
AutoSize = -1 'True
BackStyle = 0 'Transparent
Height = 195
Left = 75
TabIndex = 14
Top = 4125
Width = 45
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Wave Type:"
Height = 195
Left = 4770
TabIndex = 13
Top = 4875
Width = 885
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Width Multiplier:"
Height = 195
Left = 4530
TabIndex = 12
Top = 4500
Width = 1125
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "X Axis Position:"
Height = 195
Left = 225
TabIndex = 11
Top = 4500
Width = 1080
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Wavelength:"
Height = 195
Left = 2565
TabIndex = 10
Top = 4500
Width = 915
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Amplitude:"
Height = 195
Left = 2745
TabIndex = 9
Top = 4875
Width = 735
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Y Axis Position:"
Height = 195
Left = 225
TabIndex = 8
Top = 4875
Width = 1080
End
Attribute VB_Name = "frmSineWave"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_Predeclar